\(\int \frac {\log (c (d+e x^n)^p)}{x^4} \, dx\) [76]

Optimal result

Integrand size = 16, antiderivative size = 70 \[ \int \frac {\log \left (c \left (d+e x^n\right )^p\right )}{x^4} \, dx=-\frac {e n p x^{-3+n} \operatorname {Hypergeometric2F1}\left (1,-\frac {3-n}{n},2-\frac {3}{n},-\frac {e x^n}{d}\right )}{3 d (3-n)}-\frac {\log \left (c \left (d+e x^n\right )^p\right )}{3 x^3} \]

[Out]

-1/3*e*n*p*x^(-3+n)*hypergeom([1, (-3+n)/n],[2-3/n],-e*x^n/d)/d/(3-n)-1/3*ln(c*(d+e*x^n)^p)/x^3

Rubi [A] (verified)

Time = 0.02 (sec) , antiderivative size = 70, normalized size of antiderivative = 1.00, number of steps used = 2, number of rules used = 2, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.125, Rules used = {2505, 371} \[ \int \frac {\log \left (c \left (d+e x^n\right )^p\right )}{x^4} \, dx=-\frac {\log \left (c \left (d+e x^n\right )^p\right )}{3 x^3}-\frac {e n p x^{n-3} \operatorname {Hypergeometric2F1}\left (1,-\frac {3-n}{n},2-\frac {3}{n},-\frac {e x^n}{d}\right )}{3 d (3-n)} \]

[In]

Int[Log[c*(d + e*x^n)^p]/x^4,x]

[Out]

-1/3*(e*n*p*x^(-3 + n)*Hypergeometric2F1[1, -((3 - n)/n), 2 - 3/n, -((e*x^n)/d)])/(d*(3 - n)) - Log[c*(d + e*x
^n)^p]/(3*x^3)

Rule 371

Int[((c_.)*(x_))^(m_.)*((a_) + (b_.)*(x_)^(n_))^(p_), x_Symbol] :> Simp[a^p*((c*x)^(m + 1)/(c*(m + 1)))*Hyperg
eometric2F1[-p, (m + 1)/n, (m + 1)/n + 1, (-b)*(x^n/a)], x] /; FreeQ[{a, b, c, m, n, p}, x] &&  !IGtQ[p, 0] &&
(ILtQ[p, 0] || GtQ[a, 0])

Rule 2505

Int[((a_.) + Log[(c_.)*((d_) + (e_.)*(x_)^(n_))^(p_.)]*(b_.))*((f_.)*(x_))^(m_.), x_Symbol] :> Simp[(f*x)^(m +
1)*((a + b*Log[c*(d + e*x^n)^p])/(f*(m + 1))), x] - Dist[b*e*n*(p/(f*(m + 1))), Int[x^(n - 1)*((f*x)^(m + 1)/
(d + e*x^n)), x], x] /; FreeQ[{a, b, c, d, e, f, m, n, p}, x] && NeQ[m, -1]

Rubi steps \begin{align*} \text {integral}& = -\frac {\log \left (c \left (d+e x^n\right )^p\right )}{3 x^3}+\frac {1}{3} (e n p) \int \frac {x^{-4+n}}{d+e x^n} \, dx \\ & = -\frac {e n p x^{-3+n} \, _2F_1\left (1,-\frac {3-n}{n};2-\frac {3}{n};-\frac {e x^n}{d}\right )}{3 d (3-n)}-\frac {\log \left (c \left (d+e x^n\right )^p\right )}{3 x^3} \\ \end{align*}

Mathematica [A] (verified)

Time = 0.02 (sec) , antiderivative size = 62, normalized size of antiderivative = 0.89 \[ \int \frac {\log \left (c \left (d+e x^n\right )^p\right )}{x^4} \, dx=\frac {\frac {e n p x^n \operatorname {Hypergeometric2F1}\left (1,\frac {-3+n}{n},2-\frac {3}{n},-\frac {e x^n}{d}\right )}{d (-3+n)}-\log \left (c \left (d+e x^n\right )^p\right )}{3 x^3} \]

[In]

Integrate[Log[c*(d + e*x^n)^p]/x^4,x]

[Out]

((e*n*p*x^n*Hypergeometric2F1[1, (-3 + n)/n, 2 - 3/n, -((e*x^n)/d)])/(d*(-3 + n)) - Log[c*(d + e*x^n)^p])/(3*x
^3)

Maple [F]

\[\int \frac {\ln \left (c \left (d +e \,x^{n}\right )^{p}\right )}{x^{4}}d x\]

[In]

int(ln(c*(d+e*x^n)^p)/x^4,x)

[Out]

int(ln(c*(d+e*x^n)^p)/x^4,x)

Fricas [F]

\[ \int \frac {\log \left (c \left (d+e x^n\right )^p\right )}{x^4} \, dx=\int { \frac {\log \left ({\left (e x^{n} + d\right )}^{p} c\right )}{x^{4}} \,d x } \]

[In]

integrate(log(c*(d+e*x^n)^p)/x^4,x, algorithm="fricas")

[Out]

integral(log((e*x^n + d)^p*c)/x^4, x)

Sympy [C] (verification not implemented)

Result contains complex when optimal does not.

Time = 14.17 (sec) , antiderivative size = 78, normalized size of antiderivative = 1.11 \[ \int \frac {\log \left (c \left (d+e x^n\right )^p\right )}{x^4} \, dx=- \frac {\log {\left (c \left (d + e x^{n}\right )^{p} \right )}}{3 x^{3}} + \frac {d^{\frac {3}{n}} d^{1 - \frac {3}{n}} e e^{- \frac {3}{n}} e^{-1 + \frac {3}{n}} p \Phi \left (\frac {d x^{- n} e^{i \pi }}{e}, 1, \frac {3}{n}\right ) \Gamma \left (- \frac {3}{n}\right )}{d n x^{3} \Gamma \left (1 - \frac {3}{n}\right )} \]

[In]

integrate(ln(c*(d+e*x**n)**p)/x**4,x)

[Out]

-log(c*(d + e*x**n)**p)/(3*x**3) + d**(3/n)*d**(1 - 3/n)*e*e**(-1 + 3/n)*p*lerchphi(d*exp_polar(I*pi)/(e*x**n)
, 1, 3/n)*gamma(-3/n)/(d*e**(3/n)*n*x**3*gamma(1 - 3/n))

Maxima [F]

\[ \int \frac {\log \left (c \left (d+e x^n\right )^p\right )}{x^4} \, dx=\int { \frac {\log \left ({\left (e x^{n} + d\right )}^{p} c\right )}{x^{4}} \,d x } \]

[In]

integrate(log(c*(d+e*x^n)^p)/x^4,x, algorithm="maxima")

[Out]

-d*n*p*integrate(1/3/(e*x^4*x^n + d*x^4), x) - 1/9*(n*p + 3*log((e*x^n + d)^p) + 3*log(c))/x^3

Giac [F]

\[ \int \frac {\log \left (c \left (d+e x^n\right )^p\right )}{x^4} \, dx=\int { \frac {\log \left ({\left (e x^{n} + d\right )}^{p} c\right )}{x^{4}} \,d x } \]

[In]

integrate(log(c*(d+e*x^n)^p)/x^4,x, algorithm="giac")

[Out]

integrate(log((e*x^n + d)^p*c)/x^4, x)

Mupad [F(-1)]

Timed out. \[ \int \frac {\log \left (c \left (d+e x^n\right )^p\right )}{x^4} \, dx=\int \frac {\ln \left (c\,{\left (d+e\,x^n\right )}^p\right )}{x^4} \,d x \]

[In]

int(log(c*(d + e*x^n)^p)/x^4,x)

[Out]

int(log(c*(d + e*x^n)^p)/x^4, x)